<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
'本文件用来获取用户填写的单价和数量，计算出订单的总价和折扣率

session("bj1")=Request.Form("bj1") '标价
session("bj2")=Request.Form("bj2")
session("bj3")=Request.Form("bj3")
session("bj4")=Request.Form("bj4")
session("bj5")=Request.Form("bj5")
session("bj6")=Request.Form("bj6")
session("bj7")=Request.Form("bj7")
session("bj8")=Request.Form("bj8")
session("bj9")=Request.Form("bj9")
session("bj10")=Request.Form("bj10")
session("bj11")=Request.Form("bj11")
session("bj12")=Request.Form("bj12")
session("bj13")=Request.Form("bj13")
session("bj14")=Request.Form("bj14")
session("bj15")=Request.Form("bj15")
session("bj16")=Request.Form("bj16")
session("bj17")=Request.Form("bj17")
session("bj18")=Request.Form("bj18")
session("bj19")=Request.Form("bj19")
session("bj20")=Request.Form("bj20")
session("bj21")=Request.Form("bj21")
session("bj22")=Request.Form("bj22")
session("bj23")=Request.Form("bj23")
session("bj24")=Request.Form("bj24")
session("bj25")=Request.Form("bj25")
session("bj26")=Request.Form("bj26")

session("dj1")=Request.Form("dj1") '单价
session("dj2")=Request.Form("dj2")
session("dj3")=Request.Form("dj3")
session("dj4")=Request.Form("dj4")
session("dj5")=Request.Form("dj5")
session("dj6")=Request.Form("dj6")
session("dj7")=Request.Form("dj7")
session("dj8")=Request.Form("dj8")
session("dj9")=Request.Form("dj9")
session("dj10")=Request.Form("dj10")
session("dj11")=Request.Form("dj11")
session("dj12")=Request.Form("dj12")
session("dj13")=Request.Form("dj13")
session("dj14")=Request.Form("dj14")
session("dj15")=Request.Form("dj15")
session("dj16")=Request.Form("dj16")
session("dj17")=Request.Form("dj17")
session("dj18")=Request.Form("dj18")
session("dj19")=Request.Form("dj19")
session("dj20")=Request.Form("dj20")
session("dj21")=Request.Form("dj21")
session("dj22")=Request.Form("dj22")
session("dj23")=Request.Form("dj23")
session("dj24")=Request.Form("dj24")
session("dj25")=Request.Form("dj25")
session("dj26")=Request.Form("dj26")

session("sl1")=Request.Form("sl1") '数量
session("sl2")=Request.Form("sl2")
session("sl3")=Request.Form("sl3")
session("sl4")=Request.Form("sl4")
session("sl5")=Request.Form("sl5")
session("sl6")=Request.Form("sl6")
session("sl7")=Request.Form("sl7")
session("sl8")=Request.Form("sl8")
session("sl9")=Request.Form("sl9")
session("sl10")=Request.Form("sl10")
session("sl11")=Request.Form("sl11")
session("sl12")=Request.Form("sl12")
session("sl13")=Request.Form("sl13")
session("sl14")=Request.Form("sl14")
session("sl15")=Request.Form("sl15")
session("sl16")=Request.Form("sl16")
session("sl17")=Request.Form("sl17")
session("sl18")=Request.Form("sl18")
session("sl19")=Request.Form("sl19")
session("sl20")=Request.Form("sl20")
session("sl21")=Request.Form("sl21")
session("sl22")=Request.Form("sl22")
session("sl23")=Request.Form("sl23")
session("sl24")=Request.Form("sl24")
session("sl25")=Request.Form("sl25")
session("sl26")=Request.Form("sl26")


bj1=session("bj1") '标价
bj2=session("bj2")
bj3=session("bj3")
bj4=session("bj4")
bj5=session("bj5")
bj6=session("bj6")
bj7=session("bj7")
bj8=session("bj8")
bj9=session("bj9")
bj10=session("bj10")
bj11=session("bj11")
bj12=session("bj12")
bj13=session("bj13")
bj14=session("bj14")
bj15=session("bj15")
bj16=session("bj16")
bj17=session("bj17")
bj18=session("bj18")
bj19=session("bj19")
bj20=session("bj20")
bj21=session("bj21")
bj22=session("bj22")
bj23=session("bj23")
bj24=session("bj24")
bj25=session("bj25")
bj26=session("bj26")

dj1=session("dj1") '单价
dj2=session("dj2")
dj3=session("dj3")
dj4=session("dj4")
dj5=session("dj5")
dj6=session("dj6")
dj7=session("dj7")
dj8=session("dj8")
dj9=session("dj9")
dj10=session("dj10")
dj11=session("dj11")
dj12=session("dj12")
dj13=session("dj13")
dj14=session("dj14")
dj15=session("dj15")
dj16=session("dj16")
dj17=session("dj17")
dj18=session("dj18")
dj19=session("dj19")
dj20=session("dj20")
dj21=session("dj21")
dj22=session("dj22")
dj23=session("dj23")
dj24=session("dj24")
dj25=session("dj25")
dj26=session("dj26")

sl1=session("sl1") '数量
sl2=session("sl2")
sl3=session("sl3")
sl4=session("sl4")
sl5=session("sl5")
sl6=session("sl6")
sl7=session("sl7")
sl8=session("sl8")
sl9=session("sl9")
sl10=session("sl10")
sl11=session("sl11")
sl12=session("sl12")
sl13=session("sl13")
sl14=session("sl14")
sl15=session("sl15")
sl16=session("sl16")
sl17=session("sl17")
sl18=session("sl18")
sl19=session("sl19")
sl20=session("sl20")
sl21=session("sl21")
sl22=session("sl22")
sl23=session("sl23")
sl24=session("sl24")
sl25=session("sl25")
sl26=session("sl26")
'................................................................................
if bj1<>"" and sl1<>"" then
bzj1=cdbl(bj1)*cdbl(sl1) '标总价

end if

if bj2<>"" and sl2<>"" then
bzj2=cdbl(bj2)*cdbl(sl2)

end if

if bj3<>"" and sl3<>"" then
bzj3=cdbl(bj3)*cdbl(sl3)

end if

if bj4<>"" and sl4<>"" then
bzj4=cdbl(bj4)*cdbl(sl4)

end if

if bj5<>"" and sl5<>"" then
bzj5=cdbl(bj5)*cdbl(sl5)

end if

if bj6<>"" and sl6<>"" then
bzj6=cdbl(bj6)*cdbl(sl6)

end if

if bj7<>"" and sl7<>"" then
bzj7=cdbl(bj7)*cdbl(sl7)

end if

if bj8<>"" and sl8<>"" then
bzj8=cdbl(bj8)*cdbl(sl8)

end if

if bj9<>"" and sl9<>"" then
bzj9=cdbl(bj9)*cdbl(sl9)

end if

if bj10<>"" and sl10<>"" then
bzj10=cdbl(bj10)*cdbl(sl10)

end if

if bj11<>"" and sl11<>"" then
bzj11=cdbl(bj11)*cdbl(sl11)

end if

if bj12<>"" and sl12<>"" then
bzj12=cdbl(bj12)*cdbl(sl12)

end if

if bj13<>"" and sl13<>"" then
bzj13=cdbl(bj13)*cdbl(sl13)

end if

if bj14<>"" and sl14<>"" then
bzj14=cdbl(bj14)*cdbl(sl14)

end if

if bj15<>"" and sl15<>"" then
bzj15=cdbl(bj15)*cdbl(sl15)

end if

if bj16<>"" and sl16<>"" then
bzj16=cdbl(bj16)*cdbl(sl16)

end if

if bj17<>"" and sl17<>"" then
bzj17=cdbl(bj17)*cdbl(sl17)

end if

if bj18<>"" and sl18<>"" then
bzj18=cdbl(bj18)*cdbl(sl18)

end if

if bj19<>"" and sl19<>"" then
bzj19=cdbl(bj19)*cdbl(sl19)

end if

if bj20<>"" and sl20<>"" then
bzj20=cdbl(bj20)*cdbl(sl20)

end if

if bj21<>"" and sl21<>"" then
bzj21=cdbl(bj21)*cdbl(sl21)

end if

if bj22<>"" and sl22<>"" then
bzj22=cdbl(bj22)*cdbl(sl22)

end if

if bj23<>"" and sl23<>"" then
bzj23=cdbl(bj23)*cdbl(sl23)

end if

if bj24<>"" and sl24<>"" then
bzj24=cdbl(bj24)*cdbl(sl24)

end if

if bj25<>"" and sl25<>"" then
bzj25=cdbl(bj25)*cdbl(sl25)

end if

if bj26<>"" and sl26<>"" then
bzj26=cdbl(bj26)*cdbl(sl26)

end if

'................................................................................

if dj1<>"" and sl1<>"" then
zj1=cdbl(dj1)*cdbl(sl1) '总价
session("zj1")=zj1
end if

if dj2<>"" and sl2<>"" then
zj2=cdbl(dj2)*cdbl(sl2)
session("zj2")=zj2
end if

if dj3<>"" and sl3<>"" then
zj3=cdbl(dj3)*cdbl(sl3)
session("zj3")=zj3
end if

if dj4<>"" and sl4<>"" then
zj4=cdbl(dj4)*cdbl(sl4)
session("zj4")=zj4
end if

if dj5<>"" and sl5<>"" then
zj5=cdbl(dj5)*cdbl(sl5)
session("zj5")=zj5
end if

if dj6<>"" and sl6<>"" then
zj6=cdbl(dj6)*cdbl(sl6)
session("zj6")=zj6
end if

if dj7<>"" and sl7<>"" then
zj7=cdbl(dj7)*cdbl(sl7)
session("zj7")=zj7
end if

if dj8<>"" and sl8<>"" then
zj8=cdbl(dj8)*cdbl(sl8)
session("zj8")=zj8
end if

if dj9<>"" and sl9<>"" then
zj9=cdbl(dj9)*cdbl(sl9)
session("zj9")=zj9
end if

if dj10<>"" and sl10<>"" then
zj10=cdbl(dj10)*cdbl(sl10)
session("zj10")=zj10
end if

if dj11<>"" and sl11<>"" then
zj11=cdbl(dj11)*cdbl(sl11)
session("zj11")=zj11
end if

if dj12<>"" and sl12<>"" then
zj12=cdbl(dj12)*cdbl(sl12)
session("zj12")=zj12
end if

if dj13<>"" and sl13<>"" then
zj13=cdbl(dj13)*cdbl(sl13)
session("zj13")=zj13
end if

if dj14<>"" and sl14<>"" then
zj14=cdbl(dj14)*cdbl(sl14)
session("zj14")=zj14
end if

if dj15<>"" and sl15<>"" then
zj15=cdbl(dj15)*cdbl(sl15)
session("zj15")=zj15
end if

if dj16<>"" and sl16<>"" then
zj16=cdbl(dj16)*cdbl(sl16)
session("zj16")=zj16
end if

if dj17<>"" and sl17<>"" then
zj17=cdbl(dj17)*cdbl(sl17)
session("zj17")=zj17
end if

if dj18<>"" and sl18<>"" then
zj18=cdbl(dj18)*cdbl(sl18)
session("zj18")=zj18
end if

if dj19<>"" and sl19<>"" then
zj19=cdbl(dj19)*cdbl(sl19)
session("zj19")=zj19
end if

if dj20<>"" and sl20<>"" then
zj20=cdbl(dj20)*cdbl(sl20)
session("zj20")=zj20
end if

if dj21<>"" and sl21<>"" then
zj21=cdbl(dj21)*cdbl(sl21)
session("zj21")=zj21
end if

if dj22<>"" and sl22<>"" then
zj22=cdbl(dj22)*cdbl(sl22)
session("zj22")=zj22
end if

if dj23<>"" and sl23<>"" then
zj23=cdbl(dj23)*cdbl(sl23)
session("zj23")=zj23
end if

if dj24<>"" and sl24<>"" then
zj24=cdbl(dj24)*cdbl(sl24)
session("zj24")=zj24
end if

if dj25<>"" and sl25<>"" then
zj25=cdbl(dj25)*cdbl(sl25)
session("zj25")=zj25
end if

if dj26<>"" and sl26<>"" then
zj26=cdbl(dj26)*cdbl(sl26)
session("zj26")=zj26
end if
'................................................................................
if zj1<>"" then
else
zj1="0"
'session("zj1")="0"
end if

if zj2<>"" then
else
zj2="0"
'session("zj2")="0"
end if

if zj3<>"" then
else
zj3="0"
'session("zj3")="0"
end if

if zj4<>"" then
else
zj4="0"
'session("zj4")="0"
end if

if zj5<>"" then
else
zj5="0"
'session("zj5")="0"
end if

if zj6<>"" then
else
zj6="0"
'session("zj6")="0"
end if

if zj7<>"" then
else
zj7="0"
'session("zj7")="0"
end if

if zj8<>"" then
else
zj8="0"
'session("zj8")="0"
end if

if zj9<>"" then
else
zj9="0"
'session("zj9")="0"
end if

if zj10<>"" then
else
zj10="0"
'session("zj10")="0"
end if

if zj11<>"" then
else
zj11="0"
'session("zj11")="0"
end if

if zj12<>"" then
else
zj12="0"
'session("zj12")="0"
end if

if zj13<>"" then
else
zj13="0"
'session("zj13")="0"
end if

if zj14<>"" then
else
zj14="0"
'session("zj14")="0"
end if

if zj15<>"" then
else
zj15="0"
'session("zj15")="0"
end if

if zj16<>"" then
else
zj16="0"
'session("zj16")="0"
end if

if zj17<>"" then
else
zj17="0"
'session("zj17")="0"
end if

if zj18<>"" then
else
zj18="0"
'session("zj18")="0"
end if

if zj19<>"" then
else
zj19="0"
'session("zj19")="0"
end if

if zj20<>"" then
else
zj20="0"
'session("zj20")="0"
end if

if zj21<>"" then
else
zj21="0"
'session("zj21")="0"
end if

if zj22<>"" then
else
zj22="0"
'session("zj22")="0"
end if

if zj23<>"" then
else
zj23="0"
'session("zj23")="0"
end if

if zj24<>"" then
else
zj24="0"
'session("zj24")="0"
end if

if zj25<>"" then
else
zj25="0"
'session("zj25")="0"
end if

if zj26<>"" then
else
zj26="0"
'session("zj26")="0"
end if
'.......................................................................
if bzj1<>"" then
else
bzj1="0"
end if

if bzj2<>"" then
else
bzj2="0"
end if

if bzj3<>"" then
else
bzj3="0"
end if

if bzj4<>"" then
else
bzj4="0"
end if

if bzj5<>"" then
else
bzj5="0"
end if

if bzj6<>"" then
else
bzj6="0"
end if

if bzj7<>"" then
else
bzj7="0"
end if

if bzj8<>"" then
else
bzj8="0"
end if

if bzj9<>"" then
else
bzj9="0"
end if

if bzj10<>"" then
else
bzj10="0"
end if

if bzj11<>"" then
else
bzj11="0"
end if

if bzj12<>"" then
else
bzj12="0"
end if

if bzj13<>"" then
else
bzj13="0"
end if

if bzj14<>"" then
else
bzj14="0"
end if

if bzj15<>"" then
else
bzj15="0"
end if

if bzj16<>"" then
else
bzj16="0"
end if

if bzj17<>"" then
else
bzj17="0"
end if

if bzj18<>"" then
else
bzj18="0"
end if

if bzj19<>"" then
else
bzj19="0"
end if

if bzj20<>"" then
else
bzj20="0"
end if

if bzj21<>"" then
else
bzj21="0"
end if

if bzj22<>"" then
else
bzj22="0"
end if

if bzj23<>"" then
else
bzj23="0"
end if

if bzj24<>"" then
else
bzj24="0"
end if

if bzj25<>"" then
else
bzj25="0"
end if

if bzj26<>"" then
else
bzj26="0"
end if


'合计................................................................................
if zj1<>"" then
heji=cdbl(zj1)+cdbl(zj2)+cdbl(zj3)+cdbl(zj4)+cdbl(zj5)+cdbl(zj6)+cdbl(zj7)+cdbl(zj8)+cdbl(zj9)+cdbl(zj10)+cdbl(zj11)+cdbl(zj12)+cdbl(zj13)+cdbl(zj14)+cdbl(zj15)+cdbl(zj16)+cdbl(zj17)+cdbl(zj18)+cdbl(zj19)+cdbl(zj20)+cdbl(zj21)+cdbl(zj22)+cdbl(zj23)+cdbl(zj24)+cdbl(zj25)+cdbl(zj26)
session("textssk")=heji
IF session("textckdh")<>"赠品" THEN
session("textspjg")=heji
END IF
end if


'标价合计................................................................................
if bzj1<>"" then
'bheji=bzj1+bzj2+bzj3+bzj4+bzj5+bzj6+bzj7+bzj8+bzj9+bzj10+bzj11+bzj12+bzj13+bzj14+bzj15+bzj16+bzj17+bzj18+bzj19+bzj20+bzj21+bzj22+bzj23+bzj24+bzj25+bzj26
bheji=cdbl(bzj1)+cdbl(bzj2)+cdbl(bzj3)+cdbl(bzj4)+cdbl(bzj5)+cdbl(bzj6)+cdbl(bzj7)+cdbl(bzj8)+cdbl(bzj9)+cdbl(bzj10)+cdbl(bzj11)+cdbl(bzj12)+cdbl(bzj13)+cdbl(bzj14)+cdbl(bzj15)+cdbl(bzj16)+cdbl(bzj17)+cdbl(bzj18)+cdbl(bzj19)+cdbl(bzj20)+cdbl(bzj21)+cdbl(bzj22)+cdbl(bzj23)+cdbl(bzj24)+cdbl(bzj25)+cdbl(bzj26)
session("textheji")=bheji
end if

'折扣率................................................................................
if bheji<>"0" then
session("zhekoulv")=left(cdbl(session("textssk"))/cdbl(session("textheji"))*100,4)&"%"
'response.Write(left(cdbl(session("textssk"))/cdbl(session("textheji"))*100,4)&"折")
end if
%>


